home *** CD-ROM | disk | FTP | other *** search
/ Delphi 2.0 - Programmer's Utilities Power Pack / Delphi 2.0 Programmer's Utilities Power Pack.iso / s_to_z / tpack / filtprop.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-09-15  |  1.7 KB  |  76 lines
  1. unit FiltProp;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, Bitbox, TypInfo, Buttons, Toolbar, ExtCtrls;
  8.  
  9. type
  10.   TFiltPropForm = class(TForm)
  11.     BitBox1: TBitBox;
  12.     BitBtn1: TBitBtn;
  13.     BitBtn2: TBitBtn;
  14.     Toolbar1: TToolbar;
  15.     VarsButton: TToolButton;
  16.     ClassesButton: TToolButton;
  17.     MethodsButton: TToolButton;
  18.     AllButton: TToolButton;
  19.     procedure FormCreate(Sender: TObject);
  20.     procedure AllButtonClick(Sender: TObject);
  21.     procedure VarsButtonClick(Sender: TObject);
  22.     procedure ClassesButtonClick(Sender: TObject);
  23.     procedure MethodsButtonClick(Sender: TObject);
  24.   private
  25.     { Private declarations }
  26.   public
  27.     { Public declarations }
  28.   end;
  29.  
  30. var
  31.   FiltPropForm: TFiltPropForm;
  32.  
  33. implementation
  34.  
  35. uses DocProps;
  36.  
  37. {$R *.DFM}
  38.  
  39. procedure TFiltPropForm.FormCreate(Sender: TObject);
  40. var
  41.   aKind:TTypeKind;
  42.   k:TTypeKinds;
  43. begin
  44.   with BitBox1 do begin
  45.     Captions.Clear;
  46.     K:=[];
  47.     for aKind:=low(TTypeKind) to high(TTypeKind) do begin
  48.       K:=K + [aKind];
  49.       Captions.Add(GetEnumName(TypeInfo(TTypeKind),ord(aKind))^);
  50.       end;
  51.     Possible:=TWordSet(k);
  52.     end;
  53. end;
  54.  
  55. procedure TFiltPropForm.AllButtonClick(Sender: TObject);
  56. begin
  57.   BitBox1.Possible:=TWordSet(AllFilter);
  58. end;
  59.  
  60. procedure TFiltPropForm.VarsButtonClick(Sender: TObject);
  61. begin
  62.   BitBox1.Possible:=TWordSet(VarFilter);
  63. end;
  64.  
  65. procedure TFiltPropForm.ClassesButtonClick(Sender: TObject);
  66. begin
  67.   BitBox1.Possible:=TWordSet(ClassFilter);
  68. end;
  69.  
  70. procedure TFiltPropForm.MethodsButtonClick(Sender: TObject);
  71. begin
  72.   BitBox1.Possible:=TWordSet(MethodFilter);
  73. end;
  74.  
  75. end.
  76.